10 IFPEEK(49234)<>ASC("S")THENLOAD" SPRITE*",8,1
20 SYS49152
100 PRINT"[147][155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
110 PRINT" *** SPRITE-GRAPHICS - GRAFIK-DEMO *** "
120 POKE53280,6:POKE53281,6
130 !GR1;GN0;GC14;GE;GX84;GY67;GI;GP1
135 !DS 255,255,255,255,255,255,255,255
140 FORI=1TO20:!TP8,2+I,"TEXT HINTER DER GRAFIK!":NEXT:PRINT""
150 T$="PUNKTE (TASTE = ENDE)":GOSUB50000
160 GOSUB1000
170 T$="LINIEN (TASTE = ENDE)":GOSUB50000
180 GOSUB1100
190 T$="RECHTECKE (TASTE = ENDE)":GOSUB50000
200 GOSUB1200
210 T$="BLOECKE (TASTE = ENDE)":GOSUB50000
220 GOSUB1300
230 T$="BLOECKE MIT MUSTER (TASTE = ENDE)":GOSUB50000
240 GOSUB1400
250 T$="SCHMALE GRAFIK (TASTE)":GOSUB50000
260 POKE198,0:!GW0;GX132:WAIT198,63
270 T$="BREITE GRAFIK (TASTE)":GOSUB50000
275 !GW1;GX84:POKE198,0:WAIT198,1
280 T$="INVERSE GRAFIK (TASTE)":GOSUB50000
290 POKE198,0:!GI:WAIT198,63
300 T$="NORMALE GRAFIK (TASTE)":GOSUB50000
310 POKE198,0:!GI:WAIT198,63
320 POKE198,0:!TF0,5,7,1,32:GOTO130
1000 REM PUNKTE
1005 !DM0:K=0:POKE198,0
1010 X=96*RND(TI):Y=168*RND(TI)
1020 !TP0,5,K:!DDX,Y:K=K+1:IFPEEK(198)=0THEN1010
1030 RETURN
1100 REM LINIEN
1110 !TF0,5,7,1,32;GE;GI:K=0:POKE198,0
1120 X1=96*RND(TI):Y1=168*RND(TI)
1130 X2=96*RND(TI):Y2=168*RND(TI)
1140 !DLX1,Y1,X2,Y2;TP0,5,K:K=K+1:IFPEEK(198)=0THEN1120
1150 RETURN
1200 REM RECHTECKE
1210 !TF0,5,7,1,32;GE;GI:K=0:POKE198,0
1220 X1=96*RND(TI):Y1=168*RND(TI)
1230 X2=(96-X1)*RND(TI):Y2=(168-Y1)*RND(TI)
1240 !DRX1,Y1,X2,Y2;TP0,5,K:K=K+1:IFPEEK(198)=0THEN1220
1250 RETURN
1300 REM BLOECKE
1310 !TF0,5,7,1,32;GE;GI;DM2:K=0:POKE198,0
1320 X1=96*RND(TI):Y1=168*RND(TI)
1330 X2=(96-X1)*RND(TI):Y2=(168-Y1)*RND(TI)
1340 !DBX1,Y1,X2,Y2;TP0,5,K:K=K+1:IFPEEK(198)=0THEN1320
1350 RETURN
1400 REM BLOECKE MIT MUSTER
1410 !TF0,5,7,1,32;GE;GI;DM3:K=0:P=0:POKE198,0:!TC 8,3,23,20,6:RESTORE
1420 FORI=0TO7:READM(I):NEXT:!DSM(0),M(1),M(2),M(3),M(4),M(5),M(6),M(7)
1422 IFP=4THENP=-1:RESTORE
1425 X1=96*RND(TI):Y1=168*RND(TI)
1430 X2=(96-X1)*RND(TI):Y2=(168-Y1)*RND(TI)
1440 !DBX1,Y1,X2,Y2;TP0,5,K:K=K+1:P=P+1:IFPEEK(198)=0THEN1420
1450 RETURN
1460 REM MUSTER
1462 DATA 85,170,85,170,85,170,85,170
1464 DATA 1,2,4,8,16,32,64,128
1466 DATA 6,246,246,6,96,111,111,96
1468 DATA 221,187,119,187,221,187,119,187
1470 DATA 0,251,251,251,0,191,191,191
50000 REM TITEL ANZEIGEN
50010 !TF0,24,40,1,32
50020 !TP(39-LEN(T$))/2,24,"[155]"T$;
50030 RETURN